home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / WALKOVER.TCL < prev    next >
Encoding:
Text File  |  2002-07-04  |  1.2 KB  |  50 lines
  1. #
  2. #
  3.  
  4.  
  5. proc walkoverwatch_normal {} {
  6.     if { [.iscollided] == "true"} {
  7.         # make sure that we are called with a valid collider!!!
  8.         set collider [.getcollvehicle]
  9.         if  { $collider != "null" } {
  10.             puts "REMOVING [.getfullname]"
  11.             .setremoveable true
  12.         }
  13.     }
  14. }
  15.  
  16. #-----------------------------------------------------
  17. # Callback Procedures used watcher functions ...
  18. #-----------------------------------------------------
  19.  
  20. # --------------------------------
  21. # Wird aufgerufen
  22. #
  23. #   28-Mar-01   floh    von jump_nofly -> jump
  24. # --------------------------------
  25. proc backpack_collected {} {
  26.  
  27.     puts "Das ist obsolete"
  28. }
  29.  
  30.  
  31. # --------------------------------
  32. # Gⁿrtel fⁿrs Tutorial
  33. # Setzt Anzahl Belt-Slots auf 5.
  34. # 29-May-01 floh    make artefacts visible  
  35. # --------------------------------
  36. proc belt_collected {} {
  37.  
  38.     set collider [.getcollvehicle]
  39.     set me [[/world.getuserclan].getmaennel]
  40.  
  41.     puts "BELT collected !!!!!!!!!!!!!!!"
  42.     puts "Collidee: $collider"
  43.     
  44.     if  {($collider != "null") && ($me == $collider)} {
  45.         $collider.setmaxartefacts 5
  46.         #show_artefacts
  47.         puts "New num slots: $newnumslots"
  48.     }
  49. }
  50.